Namespace Events


    Public Class PreferenceChangeEventArgs : Inherits EventArgs
        Private ReadOnly mKey As String
        Private ReadOnly mNewValue As Object

        Public Sub New(ByVal Key As String, ByVal NewValue As Object)
            Me.mKey = Key
            Me.mNewValue = NewValue
        End Sub

        Public ReadOnly Property Key() As String
            Get
                Return mKey
            End Get
        End Property

        Public ReadOnly Property NewValue() As Object
            Get
                Return mNewValue
            End Get
        End Property
    End Class

    Public Delegate Sub PreferenceChangeEventHandler(ByVal Sender As Object, ByVal Args As PreferenceChangeEventArgs)

End Namespace
